home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crwdemo / logonsev.frm < prev    next >
Text File  |  1995-12-05  |  2KB  |  57 lines
  1. VERSION 2.00
  2. Begin Form LogonSever 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "SQL Server(explicit)"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   1035
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    Begin TextBox Text2 
  17.       Height          =   495
  18.       Left            =   2400
  19.       TabIndex        =   3
  20.       Text            =   "Text2"
  21.       Top             =   2760
  22.       Width           =   2415
  23.    End
  24.    Begin TextBox Text1 
  25.       Height          =   495
  26.       Left            =   2400
  27.       TabIndex        =   2
  28.       Text            =   "Text1"
  29.       Top             =   1800
  30.       Width           =   2415
  31.    End
  32.    Begin CommandButton Command2 
  33.       Caption         =   "Command2"
  34.       Height          =   1215
  35.       Left            =   360
  36.       TabIndex        =   1
  37.       Top             =   2070
  38.       Width           =   1695
  39.    End
  40.    Begin CommandButton Command1 
  41.       Caption         =   "Command1"
  42.       Height          =   1215
  43.       Left            =   360
  44.       TabIndex        =   0
  45.       Top             =   675
  46.       Width           =   1695
  47.    End
  48. End
  49. Sub Form_Load ()
  50.  dllname = InputBox("Enter DLL name: ", "DLL Name")
  51.  If dllname <> "pdsodbc.dll" Then
  52.   MsgBox "Cannot recognize DLL Name."
  53.  End If
  54.   
  55. End Sub
  56.  
  57.